Index: xotcl/library/store/MultiStorage.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/store/MultiStorage.xotcl	(.../MultiStorage.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/store/MultiStorage.xotcl	(.../MultiStorage.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -9,7 +9,7 @@
     Class Storage=multi -superclass Storage
     Storage=multi instproc add {dbPackage args} {
 	my instvar storages names
-	if {[string length $dbPackage] == 0} {
+	if {$dbPackage eq ""} {
 	    set dbPackage [Storage defaultPackage]
 	}
 	package require xotcl::store::[string tolower $dbPackage]