@@ -1,8 +1,8 @@
 #!/bin/sh
 # FILE: "/home/joze/src/tclreadline/sample.tclshrc"
-# LAST MODIFICATION: "Mon Aug 23 00:00:23 1999 (joze)"
+# LAST MODIFICATION: "Mon Aug 23 00:55:51 1999 (joze)"
 # (C) 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # vim:set ft=tcl: \
 exec tclsh "$0" "$@"
 
@@ -20,11 +20,11 @@
     #     rename cd ::tclreadline::Cd
     #     proc cd {args} {
     #         if {[catch {eval ::tclreadline::Cd $args} message]} {
     #             puts stderr "$message"
     #         }
-    #         ls
+    #         tclreadline::ls
     #     }
     # }
 
     # uncomment the following line to use
     # tclreadline's fancy ls proc.