Index: tolbase/lib/toltk/init_toltk.tcl
===================================================================
--- tolbase/lib/toltk/init_toltk.tcl	(revision 9d2a70c59399f4f255073a4cb34e9c5815ae2d34)
+++ tolbase/lib/toltk/init_toltk.tcl	(revision ab6d232f3c6b0b9694d79d115243812236c1b548)
@@ -73,7 +73,7 @@
   package require autoscroll 1.1
   package require tclodbc
-  if {[info exist ::env(USE_TOLTCL)]} {
-    puts "requested to load Toltcl from $::env(USE_TOLTCL)"
-    load $::env(USE_TOLTCL)
+  if {[info exist ::env(USE_TOLTCL_31)]} {
+    puts "requested to load Toltcl from $::env(USE_TOLTCL_31)"
+    load $::env(USE_TOLTCL_31)
   } else {
     package require Toltcl 3.1