--- a/PopUpList.st	Sun Nov 02 18:47:35 1997 +0100
+++ b/PopUpList.st	Sun Nov 02 18:50:11 1997 +0100
@@ -892,8 +892,12 @@
 !
 
 specClass
+    "XXX no longer needed (inherited default works here)"
+
     self class == PopUpList ifTrue:[^ PopUpListSpec].
     ^ super specClass
+
+    "Modified: / 31.10.1997 / 19:48:02 / cg"
 ! !
 
 !PopUpList methodsFor:'user actions'!
@@ -956,5 +960,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.53 1997-10-29 20:09:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.54 1997-11-02 17:50:11 cg Exp $'
 ! !