--- nfo/perl/libs/App/Process.pm	2003/06/06 03:14:16	1.3
+++ nfo/perl/libs/App/Process.pm	2003/12/03 00:21:38	1.4
@@ -1,7 +1,10 @@
 ## ----------------------------------------------------------------------
-##  $Id: Process.pm,v 1.3 2003/06/06 03:14:16 joko Exp $
+##  $Id: Process.pm,v 1.4 2003/12/03 00:21:38 joko Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: Process.pm,v $
+##  Revision 1.4  2003/12/03 00:21:38  joko
+##  + minor fix to '_bootDatabases': instantiate the DSC-container if no ref to it exists
+##
 ##  Revision 1.3  2003/06/06 03:14:16  joko
 ##  enhanced database connection bootstrapping:
 ##    - boot default ones
@@ -141,7 +144,9 @@
   
   # FIXME: CACHE THIS! JUST BOOT STORAGES INTO CONTAINER IF NOT ALREADY DONE!
   # WATCH OUT FOR GLOBAL USED RESOURCES!
-  $self->{DSC} ||= DesignPattern::Object->fromPackage('Data::Storage::Container');
+  if (not ref $self->{DSC} eq 'Data::Storage::Container') {
+    $self->{DSC} = DesignPattern::Object->fromPackage('Data::Storage::Container');
+  }
   
   # Check if database keys were specified explicitely 
   # as default inside the application container ...