@@ -1,8 +1,8 @@
 #!/bin/sh
-# FILE: "/home/joze/src/tclreadline/sample.tclshrc"
-# LAST MODIFICATION: "Sat Aug 28 23:41:17 1999 (joze)"
+# FILE: "/diska/home/joze/src/tclreadline/sample.tclshrc"
+# LAST MODIFICATION: "Wed Sep  8 18:10:30 1999 (joze)"
 # (C) 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # vim:set ft=tcl: \
 exec tclsh "$0" "$@"
 
@@ -47,10 +47,14 @@
 
     # store maximal this much lines in the history file
     #
     set tclreadline::historyLength 200
 
+    # disable tclreadline's script completer
+    #
+    ::tclreadline::readline customcompleter ""
+
     # go to tclrealdine's main loop.
     #
     tclreadline::Loop
 }