diff --git a/gash/gash.scm b/gash/gash.scm
index 5521e24..28f6da1 100644
--- a/gash/gash.scm
+++ b/gash/gash.scm
@@ -142,21 +142,25 @@ There is NO WARRANTY, to the extent permitted by law.
               (else (exit (run-repl (current-input-port) parse?))))))))
     (thunk)))
 
-(define prompt
-  (let* ((l (string #\001))
-         (r (string #\002))
-         (e (string #\033))
-         (user (getenv "USER"))
-         (host (gethostname))
-         (home (getenv "HOME")))
-    (lambda ()
-      (let* ((cwd (getcwd))
-             (cwd (if (string-prefix? home cwd)
-                      (string-replace cwd "~" 0 (string-length home))
-                      cwd)))
-        (string-append
-         l e "[01;32m" r user "@" host l e "[00m" r ":"
-         l e "[01;34m" r cwd l e "[00m" r (if (zero? (getuid)) "# " "$ "))))))
+(cond-expand
+ (mes (define (prompt) "$ "))
+ (else
+  (define prompt
+    (let* ((l (string #\001))
+           (r (string #\002))
+           (e (string #\033))
+           (user (getenv "USER"))
+           (host (gethostname))
+           (home (getenv "HOME")))
+      (lambda ()
+        (let* ((cwd (getcwd))
+               (cwd (if (string-prefix? home cwd)
+                        (string-replace cwd "~" 0 (string-length home))
+                        cwd)))
+          (string-append
+           l e "[01;32m" r user "@" host l e "[00m" r ":"
+           l e "[01;34m" r cwd l e "[00m" r
+           (if (zero? (getuid)) "# " "$ "))))))))
 
 (define (string-prefix s1 s2)
   (substring/read-only s1 0 (string-prefix-length s1 s2)))