changeset 1355 | ef6320ea43bc |
parent 1352 | 73f656cea457 |
child 1365 | a54466f79962 |
--- a/MenuEditor.st Wed Feb 16 11:20:05 2000 +0100 +++ b/MenuEditor.st Wed Feb 16 13:40:28 2000 +0100 @@ -2220,7 +2220,8 @@ clsName := (aspects at: #retriever) value. clsName size == 0 ifTrue:[ - clsName := specClass + clsName := specClass. + clsName isNil ifTrue:[^ nil]. ]. ^ Smalltalk at:clsName ifAbsent:nil !