X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/77d648214c46565de8c63087ee35d9ee319d7686..b3a57bf98ae09a64e6143fb006e306daf55657b2:/packages/fsm/fsm.el

diff --git a/packages/fsm/fsm.el b/packages/fsm/fsm.el
index 42dda1542..0b8c748ac 100644
--- a/packages/fsm/fsm.el
+++ b/packages/fsm/fsm.el
@@ -186,9 +186,10 @@ arguments.
 	       (put fsm :name ',name)
 	       (put fsm :state nil)
 	       (put fsm :state-data nil)
-	       (put fsm :sleep ,(or sleep (lambda (secs)
-					    (accept-process-output
-					     nil secs))))
+	       (put fsm :sleep ,(or sleep '(lambda (secs)
+					     (accept-process-output
+					      nil secs))))
+
 	       (put fsm :deferred nil)
 	       (fsm-update fsm state state-data timeout)
 	       fsm)))))))