Index: xotcl/library/store/MemStorage.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/store/MemStorage.xotcl	(.../MemStorage.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/store/MemStorage.xotcl	(.../MemStorage.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -1,4 +1,4 @@
-# $Id: MemStorage.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
+# $Id: MemStorage.xotcl,v 1.4 2006/09/14 06:36:02 neumann Exp $
 
 package provide xotcl::store::mem 0.84
 package require xotcl::store 0.84
@@ -69,7 +69,7 @@
     my instvar store
     $store instvar v
     my instvar searchID
-    if {$searchID != ""} {
+    if {$searchID ne ""} {
       array donesearch v $searchID
     }
     ::set searchID [array startsearch v]
@@ -79,12 +79,12 @@
     my instvar store
     $store instvar v
     my instvar searchID
-    if {$searchID == ""} {
+    if {$searchID eq ""} {
       error "[self class]: firstkey was not invoked on storage search"
     }
     
     ::set elt [array nextelement v $searchID]
-    if {$elt == ""} {
+    if {$elt eq ""} {
       # if array end is reach search is terminated automatically!!
       ::set searchID ""
     }