From f197f3b06c0238b2d8b19c7865e6dd99074fd22e Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 26 Jun 2002 11:56:14 +0000
Subject: [PATCH] Minor fixes.

---
 scsh/top.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scsh/top.scm b/scsh/top.scm
index 6ff2d0c..3ceec60 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -360,7 +360,7 @@
 		       (display (string-append 
 				 "Welcome to scsh "
 				 scsh-version-string
-				 " (Gambit-C 4.0)")
+				 " (" scsh-release-name ")")
 				(current-output-port))
 		       (newline (current-output-port))
 		       (display "Type ,? for help."
@@ -399,6 +399,7 @@
 (define (add-narrowed-exit-hook! thunk)
   (set! *narrowed-exit-hooks* (cons thunk *narrowed-exit-hooks*)))
 (define (call-narrowed-exit-hooks)
+  (for-each (lambda (thunk) (thunk)) *narrowed-exit-hooks*))
 
 (define (scsh-exit-now status)
   (call-exit-hooks)