--- a/UserPreferences.st	Wed Jan 24 18:48:21 2001 +0100
+++ b/UserPreferences.st	Wed Jan 24 18:50:41 2001 +0100
@@ -246,7 +246,7 @@
         ]
     ].
 
-    classToCheck notNil ifTrue:[
+    classNameToCheck notNil ifTrue:[
         classToCheck := Smalltalk at:classNameToCheck.
         classToCheck isNil ifTrue:[
             ('UserPreferences [warning]: no class ' , classNameToCheck , ' class in system') infoPrintCR.
@@ -1155,5 +1155,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.62 2001-01-24 17:48:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.63 2001-01-24 17:50:41 cg Exp $'
 ! !