@@ -1,8 +1,8 @@
 #!/usr/local/bin/tclsh
 # FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
-# LAST MODIFICATION: "Thu May 27 14:26:19 1999 (joze)"
+# LAST MODIFICATION: "Fri Aug 20 15:23:15 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -167,11 +167,13 @@
             }
 
             proc ::tclreadline::prompt1 {} {
                 variable prompt_string
                 global env
-                set pwd [pwd]
+                if {[catch {set pwd [pwd]} tmp]} {
+                    set pwd "unable to get pwd"
+                }
 
                 if [info exists env(HOME)] {
                     regsub $env(HOME) $pwd "~" pwd
                 }
                 return "$prompt_string \[$pwd\]"