Index: tclreadlineSetup.tcl.in
==================================================================
--- tclreadlineSetup.tcl.in
+++ tclreadlineSetup.tcl.in
@@ -8,10 +8,11 @@
 # ---
 
 
 package provide tclreadline @VERSION@
 
+rename unknown _unknown
 proc unknown args {
 
     global auto_noexec auto_noload env unknown_pending tcl_interactive
     global errorCode errorInfo
 
@@ -308,15 +309,11 @@
     proc Print {args} {
         variable PRINT
         if {![info exists PRINT]} {
             set PRINT yes
         }
-        if [regexp -nocase \(true\|yes\|1\) $args] {
-            set PRINT yes
-        } elseif [regexp -nocase \(false\|no\|0\) $args] {
-            set PRINT no
-        }
+        catch {set PRINT [expr {$args ? "yes" : "no"}]}
         return $PRINT
     }
 
 
 #    proc InitCmds {} {