X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/5817fe1ff1059fd505dc5e6d5171f545866bee91..HEAD:/packages/fsm/fsm.el

diff --git a/packages/fsm/fsm.el b/packages/fsm/fsm.el
index 42dda1542..4ea57c00a 100644
--- a/packages/fsm/fsm.el
+++ b/packages/fsm/fsm.el
@@ -4,7 +4,7 @@
 
 ;; Author: Magnus Henoch <magnus.henoch@gmail.com>
 ;; Maintainer: Thomas Fitzsimmons <fitzsim@fitzsim.org>
-;; Version: 0.2
+;; Version: 0.2.1
 ;; Package-Requires: ((emacs "24.1") (cl-lib "0.5"))
 ;; Keywords: extensions
 
@@ -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)))))))