--- a/AbstractLauncherApplication.st	Mon Feb 25 20:58:15 2002 +0100
+++ b/AbstractLauncherApplication.st	Mon Feb 25 21:06:25 2002 +0100
@@ -3963,7 +3963,7 @@
     s nextPutLine:'"/ User preference values:'.
     s nextPutLine:'"/'.
     currentUserPrefs keysAndValuesDo:[:k :v |
-        (UserPreferences implements:(k , ':') asSymbol) ifTrue:[
+        (UserPreferences includesSelector:(k , ':') asSymbol) ifTrue:[
             s nextPutLine:'UserPreferences current ' , k , ':' , v storeString , '.'.
         ] ifFalse:[
             s nextPutLine:'UserPreferences current at:' , k storeString , ' put:' , v storeString , '.'.
@@ -6423,5 +6423,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.190 2002-02-15 14:39:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.191 2002-02-25 20:06:25 cg Exp $'
 ! !