--- a/PopUpList.st	Sat Nov 10 00:27:09 2018 +0100
+++ b/PopUpList.st	Sat Nov 10 00:27:20 2018 +0100
@@ -1069,15 +1069,15 @@
 
 !PopUpList methodsFor:'queries'!
 
-preferredExtent
+computePreferredExtent
     "redefined to make certain that the menu is fully defined"
 
     menu isNil ifTrue:[
         self getListFromModel
     ].
-    ^ super preferredExtent.
+    ^ super computePreferredExtent.
 
-    "Modified: 19.7.1996 / 20:45:16 / cg"
+    "Created: / 09-11-2018 / 19:59:11 / Claus Gittinger"
 !
 
 specClass