1 files changed, 6 insertions, 2 deletions
diff --git a/mu.arc b/mu.arc
index aaab580a..1e99adab 100644
--- a/mu.arc
+++ b/mu.arc
@@ -1067,11 +1067,15 @@
   (each (op . rest)  forms
     (case op
       ; syntax: def <name> [ <instructions> ]
-      def
+      ; don't apply our lightweight tools just yet
+      def!
         (let (name (_make-br-fn body))  rest
           (assert (is 'make-br-fn _make-br-fn))
-          ; don't apply our lightweight tools just yet
           (= function*.name body))
+      def
+        (let (name (_make-br-fn body))  rest
+          (assert (is 'make-br-fn _make-br-fn))
+          (= function*.name (join body function*.name)))
 
       ; syntax: before <label> [ <instructions> ]
       ;