gistfile1.diff

@@ -293,10 +295,12 @@
 (define (reply fmt . args)
   (let* ((response-target (*response-target*))
          (for-whom        (*for-whom*))
+         (master-prefix   (if (is-master?) "*" ""))
          (response-prefix (if (equal? response-target for-whom)
                             ""
                             (format "~a: " for-whom))))
-    (pm response-target "~a~a" response-prefix (apply format fmt args))))
+    (pm response-target "~a~a~a" master-prefix
+                                 response-prefix (apply format fmt args))))
 
 (defverb (help ?what) "what tricks can I do?"
   (let ([what (and ?what (string->symbol ?what))]