@@ -1377,11 +1377,13 @@
        (if (null? remargs)
 	      (print "ERROR: missing data to send to trigger listeners")
 	      (let* ((msg       (car remargs))
                   (mtconfdat (simple-setup (args:get-arg "-start-dir")))
                   (mtconf    (car mtconfdat))
-                  (time-out  (or (string->number (args:get-arg "-time-out")) 5))
+                  (time-out  (if (args:get-arg "-time-out")
+                                 (string->number (args:get-arg "-time-out")) 
+                               5))
                   (listeners (configf:get-section mtconf "listeners"))
                   (user-info  (user-information (current-user-id)))
                   (prev-seen (make-hash-table))) ;; catch duplicates
              (if user-info
               (begin