 				(assoc (:slot-values pattern) 
 					(pattern :frame) 
 					(conj ((pattern :slot-values) (pattern :frame)) literal))) ]
-				(if (complete-pattern? retval) 
-					(println " is complete.")
-					(println " is waiting for " (retval :token-index) 
-							(nth (retval :tokens) (retval :token-index)) ))
+				;(if (complete-pattern? retval) 
+				;	(println " is complete.")
+				;(println " is waiting for " (retval :token-index) (nth (retval :tokens) (retval :token-index)) ))
 				retval))
 		:t nil))
 		;:t (do (println "advance pattern returning ***nil***") nil)))

		(doseq [tkn tokens]
			(println "  token:" tkn)
			(doseq [pattern (*phrasal-patterns-map* tkn)]
				(println "    ptn:" (pattern :frame))
				;(let [ x  (advance-pattern pattern (pattern :frame) tkn) ]
				(let [ x  (advance-pattern-literal pattern tkn) ]
					(add-pattern x)

					(= literal (nth (:tokens pattern) (:token-index pattern)))))
		(do 
			(def i (:token-index pattern))
			#_(print "      advance-literal slots:" (:slot-values pattern) " frame:" (pattern :frame) " literal:" literal) 
			(let [retval (create-phrasal-pattern 
				(:tokens pattern) 
				(:frame pattern) 
