 (defn start-server [#^String name]
   (System/setProperty "server.name" name)
   (let [context (ClassPathXmlApplicationContext. "application-context.xml")]
-    (def *spring-context* context)
+    (def #^ClassPathXmlApplicationContext *spring-context* context)
+    (def #^ServiceFactory *internal-view-service-factory*
+	 (.getBean *spring-context* "internalViewServiceFactory"))
     (.getBean context "metaModel")))
 
 (defn start-client [#^String name]

  (let [map (new ConcurrentHashMap)
	prefix (str (.getName src-model) "." (name key) "=")
	metadata (.getMetadata src-model)
	view-factory (proxy [Factory] [] (create [key] (view-hook (model (str prefix (route-to-value key)) metadata))))
	lazy-factory (proxy [Factory] [] (create [key] (new LazyView map key view-factory)))
	table (new SparseOpenLazyViewTable map lazy-factory)
	getter (.getAttributeGetter metadata (name key))]

	      Model
	      Router
	      Router$Strategy
	      ServiceFactory
	      SparseOpenLazyViewTable
	      Transformer
	      Transformer$Transform
