 	 (do
 		(println "print-frame frame name:" frame-name " contents:" (frame-name frame-of))
 		(doseq [s (get-specializations frame-name)] (print-frame s))
-		(doseq [a (get-abstractions frame-name)] (print-frame a)) )) ) 
-
-		;;(assert (= (find-ancestors :abs-frame-2), (list ))
-		;;(assert (= (find-ancestors :test-frame-4), (list :abs-frame-2 ))
-		;;(assert (= (find-ancestors :sec-frame-2), (list :test-frame-4 :abs-frame-2 ))
+		(doseq [a (get-abstractions frame-name)] (print-frame a)) )) )
+
 (defn find-ancestors
 	"Go up the abstraction hierarchy and collect specializaionts/abstractions"
 	{:test #(do

		(add-specialization :test-frame-4 :spec-frame-2)
		(add-abstraction :test-frame-4 :abs-frame-2)

		(println "testing get-feature with this frame:" )
		(print-frame :test-frame-4)
		;(println "test get-feature:"  (get-feature :test-frame-4 :test-slot-1))
		;(assert (=  (get-feature :test-frame-4 :test-slot-1) "a"))
		;(assert (=  (get-feature :test-frame-4 :test-slot-2) "b"))


		(create-frame :test-frame-4 (list :test-slot-1 :test-slot-2) (list "a" "b") (list :spec-frame-2) (list :abs-frame-2) )
		(create-frame :spec-frame-2 (list :spec-slot-1 :spec-slot-2) (list "x" "z") (list)               (list :test-frame-4) )
		(println "ANCESTORS abs " (find-ancestors :abs-frame-2))
		(println "ANCESTORS test" (find-ancestors :test-frame-4))
		(println "ANCESTORS spec" (find-ancestors :spec-frame-2))
		(assert (= (find-ancestors :abs-frame-2), #{:abs-frame-2}))
		(assert (= (find-ancestors :test-frame-4), #{ :abs-frame-2 :test-frame-4}))
		(assert (= (find-ancestors :spec-frame-2), #{ :spec-frame-2 :abs-frame-2 :test-frame-4 }))
	)}
	[frame-name ]
		(loop [	loop-frame frame-name 
