--- a/tclutil/aclocal.m4
+++ b/tclutil/aclocal.m4
@@ -26,8 +26,8 @@
        [AC_HELP_STRING([--with-blt=DIR],[link with BLT library installed in DIR])],
        BLT_LIB_DIR=$withval)
 
-    BLT_LIBNAME=libBLT${SHLIB_SUFFIX}
-    BLT_LIBFLAG="-lBLT"
+    BLT_LIBNAME=libBlt30${SHLIB_SUFFIX}
+    BLT_LIBFLAG="-lBlt30"
 
     if test -z "$BLT_LIB_DIR" ; then
 	# If --with-blt=dir was not specified, try the Tcl lib dir and the exec-prefix/lib dir
--- a/tclutil/generic/Tclutil.C
+++ b/tclutil/generic/Tclutil.C
@@ -33,7 +33,8 @@
 
 // Since we have to link the BLT library anyway (because we're using the BLT C interface) 
 // call the init routine directly
-extern "C" int Blt_Init(Tcl_Interp *interp);
+extern "C" int Blt_TclInit(Tcl_Interp *interp);
+extern "C" int Blt_TkInit(Tcl_Interp *interp);
 
 // generated code for bitmaps used in tcl scripts
 void defineTclutilBitmaps(Tcl_Interp*);
@@ -78,7 +79,10 @@
       return TCL_ERROR;
 
     // initialize the required BLT package 
-    if (Blt_Init(interp) == TCL_ERROR) {
+    if (Blt_TclInit(interp) == TCL_ERROR) {
+	return TCL_ERROR; 
+    }
+    if (Blt_TkInit(interp) == TCL_ERROR) {
 	return TCL_ERROR; 
     }
 
--- a/tclutil/library/TclutilInit.tcl
+++ b/tclutil/library/TclutilInit.tcl
@@ -22,7 +22,18 @@
 }
 
 # set up the namespaces used by the itcl/itk classes
-namespace import -force blt::*
+# save the scale widget and the grab command
+set savecommands {scale grab}
+foreach cmd $savecommands {
+    rename $cmd $cmd:orig
+}
+namespace import blt::*
+# restore the original scale widget and the grab command
+# in place of the imported blt::scale and blt::grab
+foreach cmd $savecommands {
+    rename $cmd ""
+    rename $cmd:orig $cmd
+}
 namespace import -force itcl::*
 namespace import -force itk::*
 namespace eval util {namespace export *}