diff --git a/build/lisp.tcl b/build/lisp.tcl
index d1e9b15f..6b99e3fe 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -903,3 +903,25 @@ respond "*" {(load "bsg;cdriv")}
 respond "T" "(make-cube)"
 respond "*" ":pdump sys3;ts cube\r"
 respond "*" ":kill\r"
+
+# LMODEM
+respond "*" ":link eb;lmodem 999, ejs; lmodem >\r"
+respond "*" ":complr\r"
+respond "_" "eb;sfadcl\r"
+respond "_" "eb;errmac\r"
+respond "_" "eb;signal\r"
+respond "_" "eb;dsk8\r"
+respond "_" "eb;lmodem\r"
+respond "_" "\032"
+type ":kill\r"
+respond "*" ":lisp\r"
+respond "Alloc?" "n"
+respond "*" {(load "eb;lmodem")}
+expect -re {[\r\n][\r\n][1-7][0-7][0-7]}
+type "(dump-lmodem-program)"
+respond "Filename in which to dump:" "eb; ts lmodem\r"
+expect -re {[\r\n][\r\n]T ?[\r\n][\r\n]}
+type "(quit)"
+expect ":KILL"
+# Make a link for the CP/M archive users.
+respond "*" ":link cpm; ts lmodem, eb;\r"
diff --git a/src/eb/signal.31 b/src/eb/signal.32
similarity index 94%
rename from src/eb/signal.31
rename to src/eb/signal.32
index 74e795d2..d807049f 100644
--- a/src/eb/signal.31
+++ b/src/eb/signal.32
@@ -57,9 +57,10 @@
              (t (let ((,cvar (car *signal-comm-var-1)))
                   (caseq ,cvar
                      ,@ (loop for (c-or-cs arglist . forms) in handlers
-                         collect (or forms
-                                     (er-error "Handler has no forms:~%; ~A"
-                                                 c-or-cs))
+                         do (or forms
+                                (er-error "Handler has no forms:~%; ~A"
+                                          c-or-cs))
+                         collect
                                 `(,c-or-cs
                                    (let
                                     ((,arglist (cdr