--- a/JavaVM.st	Mon Nov 02 15:42:10 1998 +0000
+++ b/JavaVM.st	Mon Nov 02 18:39:09 1998 +0000
@@ -6766,18 +6766,23 @@
 !
 
 _WListPeer_addItem:nativeContext
-    |jString index selListView|
+    |jString index selListView m|
 
     selListView := self viewForWPeer:nativeContext.
 
     jString := nativeContext argAt:1.
     index := nativeContext argAt:2.
 
-    selListView model list addLast:(Java as_ST_String:jString).
-    selListView model changed:#list.
-
-    "Modified: / 24.1.1998 / 18:51:32 / cg"
+    m := selListView model.
+    m isNil ifTrue:[
+        Transcript showCR:'JAVA: access to listModel of closed view'.
+    ] ifFalse:[
+        m list addLast:(Java as_ST_String:jString).
+        m changed:#list.
+    ]
+
     "Created: / 24.1.1998 / 21:10:05 / cg"
+    "Modified: / 2.11.1998 / 17:12:52 / cg"
 !
 
 _WListPeer_create:nativeContext
@@ -8172,6 +8177,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.51 1998/11/02 15:42:10 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.52 1998/11/02 18:39:09 cg Exp $'
 ! !
 JavaVM initialize!