[isidorus-cvs] r463 - trunk/src/base-tools

[Lukas Giessmann]

Author: lgiessmann
Date: Mon May  9 10:11:39 2011
New Revision: 463

Log:
base-tools: fixed a bug in open-tm-store, when a store-controller is set and so a store is opened

Modified:
   trunk/src/base-tools/base-tools.lisp

Modified: trunk/src/base-tools/base-tools.lisp
==============================================================================
--- trunk/src/base-tools/base-tools.lisp	(original)
+++ trunk/src/base-tools/base-tools.lisp	Mon May  9 10:11:39 2011
@@ -578,8 +578,8 @@
    :register, so one store canbe used by several instances of
    isidorus in parallel."
   (if elephant:*store-controller*
-      (elephant:open-store (get-store-spec pathname) :register t)
-      elephant:*store-controller*))
+      elephant:*store-controller*
+      (elephant:open-store (get-store-spec pathname) :register t)))
 
 
 (defun close-tm-store ()