diff --git a/src/proc/control/typed-allocation-manager.hpp b/src/proc/control/typed-allocation-manager.hpp
index 4c91048d6..cdc04cc03 100644
--- a/src/proc/control/typed-allocation-manager.hpp
+++ b/src/proc/control/typed-allocation-manager.hpp
@@ -77,7 +77,7 @@
 
 
 
-namespace control {
+namespace control { ////////////////////////////////////////////////////////////TODO: should go into namespace lib
   
   using std::tr1::shared_ptr;
   
@@ -106,7 +106,7 @@ namespace control {
     public:
 
       /** this is an ABC */
-      virtual ~TypedAllocationManager() {}
+      virtual ~TypedAllocationManager() {}   ////////////////////////////////////TODO: seems superfluous? We don't have any extension points (and this is a good thing!)
       
       
       
diff --git a/tests/40components.tests b/tests/40components.tests
index b301b262d..35bb2ba1e 100644
--- a/tests/40components.tests
+++ b/tests/40components.tests
@@ -824,6 +824,11 @@ return: 0
 END
 
 
+TEST "TypedAllocationManager_test" TypedAllocationManager_test <<END
+return: 0
+END
+
+
 TEST "VectorTransfer_test" VectorTransfer_test <<END
 return: 0
 END
diff --git a/tests/lib/Makefile.am b/tests/lib/Makefile.am
index fdc8cd443..024d593cd 100644
--- a/tests/lib/Makefile.am
+++ b/tests/lib/Makefile.am
@@ -82,6 +82,7 @@ test_lib_SOURCES =						\
 	$(testlib_srcdir)/test/cmdlinewrappertest.cpp		\
 	$(testlib_srcdir)/test/testoptiontest.cpp		\
 	$(testlib_srcdir)/test/test-helper-test.cpp		\
+	$(testlib_srcdir)/typed-allocation-manager-test.cpp	\
 	$(testlib_srcdir)/vectortransfertest.cpp		\
 	$(testlib_srcdir)/visitingtoolconcept.cpp		\
 	$(testlib_srcdir)/visitingtoolextendedtest.cpp		\
diff --git a/tests/lib/typed-allocation-manager-test.cpp b/tests/lib/typed-allocation-manager-test.cpp
new file mode 100644
index 000000000..09c5254e8
--- /dev/null
+++ b/tests/lib/typed-allocation-manager-test.cpp
@@ -0,0 +1,159 @@
+/*
+  TypedAllocationManager(Test)  -  check interface to pooled allocations
+ 
+  Copyright (C)         Lumiera.org
+    2009,               Hermann Vosseler <Ichthyostega@web.de>
+ 
+  This program is free software; you can redistribute it and/or
+  modify it under the terms of the GNU General Public License as
+  published by the Free Software Foundation; either version 2 of the
+  License, or (at your option) any later version.
+ 
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+ 
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ 
+* *****************************************************/
+
+
+#include "lib/test/run.hpp"
+#include "lib/test/test-helper.hpp"
+//#include "proc/control/command.hpp"
+#include "proc/control/typed-allocation-manager.hpp"
+//#include "proc/control/command-def.hpp"
+//#include "lib/lumitime.hpp"
+//#include "include/symbol.hpp"
+#include "lib/util.hpp"
+
+
+#include <tr1/memory>
+//#include <boost/ref.hpp>
+//#include <boost/format.hpp>
+//#include <iostream>
+#include <cstdlib>
+//#include <string>
+
+
+namespace control {
+namespace test    {
+
+
+//  using boost::format;
+//  using boost::str;
+  //using lumiera::Time;
+  //using util::contains;
+  using std::tr1::shared_ptr;
+//  using std::tr1::bind;
+//  using std::string;
+  using std::rand;
+  //using std::cout;
+  //using std::endl;
+//  using lib::test::showSizeof;
+  using util::isSameObject;
+//  using util::contains;
+
+//  using session::test::TestClip;
+//  using lumiera::Symbol;
+//  using lumiera::P;
+  
+  
+  //using lumiera::typelist::BuildTupleAccessor;
+//  using lumiera::error::LUMIERA_ERROR_EXTERNAL;
+  
+  namespace { // test data and helpers...
+  
+    long checksum_ = 0;
+    
+    /**
+     * Yet-another ctor/dtor-tracking test dummy object....
+     */
+    template<uint siz>
+    class DummyObj
+      {
+        char crap_[siz];
+        
+      public:
+        DummyObj()
+          {
+            REQUIRE (siz);
+            for (uint i=0; i<siz; ++i)
+              checksum_ += (crap_[i] = rand() % 128);
+          }
+        
+       ~DummyObj()
+          {
+            for (uint i=0; i<siz; ++i)
+              checksum_ -= crap_[i];
+          }
+      };
+  }
+  
+  
+  
+  /***************************************************************************************
+   * @test cover the basic implementation of a custom allocator, delegating to mpool.
+   *       TypedAllocationManager is a base class, used e.g. to build the CommandRegistry.
+   * 
+   * @todo planned but not implemented as of 8/09   see also Ticket #217
+   *        
+   * @see CommandRegistry
+   * @see command-registry-test.cpp
+   * @see allocationclustertest.cpp
+   */
+  class TypedAllocationManager_test : public Test
+    {
+      
+      virtual void
+      run (Arg) 
+        {
+          REQUIRE (0 == checksum_);
+          
+          TypedAllocationManager allocator;
+          
+          typedef shared_ptr<DummyObj<1> >  PD1;
+          typedef shared_ptr<DummyObj<22> > PD22;
+          ASSERT (sizeof(DummyObj<1>) != sizeof(DummyObj<22>));
+          
+            {
+              PD1  pD11 = allocator.create<DummyObj<1> >();
+              PD1  pD12 = allocator.create<DummyObj<1> >();
+              PD22 pD21 = allocator.create<DummyObj<22> >();
+              PD22 pD22 = allocator.create<DummyObj<22> >();
+              ASSERT (pD11);
+              ASSERT (pD12);
+              ASSERT (pD21);
+              ASSERT (pD22);
+              ASSERT (1 == pD11.use_count());
+              ASSERT (1 == pD12.use_count());
+              ASSERT (1 == pD21.use_count());
+              ASSERT (1 == pD22.use_count());
+              ASSERT (!isSameObject (*pD11, *pD12));
+              ASSERT (!isSameObject (*pD11, *pD21));
+              ASSERT (!isSameObject (*pD11, *pD22));
+              ASSERT (!isSameObject (*pD12, *pD21));
+              ASSERT (!isSameObject (*pD12, *pD22));
+              ASSERT (!isSameObject (*pD21, *pD22));
+              
+              PD22 pD2x = pD21;
+              ASSERT (pD2x);
+              ASSERT (2 == pD21.use_count());
+              ASSERT (2 == pD2x.use_count());
+              ASSERT (isSameObject (*pD21, *pD2x));
+              
+            }
+          
+          ASSERT (0 == checksum_);
+        }
+    };
+  
+  
+  /** Register this test class... */
+  LAUNCHER (TypedAllocationManager_test, "unit common");
+  
+  
+}} // namespace control::test