Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1,6 +1,6 @@
-et; Copyright 2006-2017, Matthew Welland.
+; Copyright 2006-2017, Matthew Welland.
 ;; 
 ;;  This program is made available under the GNU GPL version 2.0 or
 ;;  greater. See the accompanying file COPYING for details.
 ;; 
 ;;  This program is distributed WITHOUT ANY WARRANTY; without even the
@@ -1226,11 +1226,11 @@
                    (if (not (is-port-in-use portnum))  
                        (let* ((rep       (start-nn-server portnum))
                            (mtconfdat (simple-setup (args:get-arg "-start-dir")))
                            (mtconf    (car mtconfdat))
                            (script    (configf:lookup mtconf "listener" "script")))
-                           (print "Listening on port " po:setrtnum " for messages")
+                           (print "Listening on port " portnum " for messages")
                            (let loop ((instr (nn-recv rep)))
                                (print "received " instr ", running \"" script " " instr "\"")
                                (system (conc script " " instr))
                                (nn-send rep "ok")
                                (loop (nn-recv rep))))