diff -ur bouquet.orig/bouquet.lisp bouquet/bouquet.lisp
--- bouquet.orig/bouquet.lisp	2004-05-03 05:06:40.000000000 -0500
+++ bouquet/bouquet.lisp	2004-08-07 00:07:01.863133456 -0500
@@ -100,8 +100,8 @@
 	  :accessor edges)))
 
 (defclass tulip-property ()
-  ((property-type :initarg :type
-		  :accessor type)
+  ((property-type :initarg :property-type
+		  :accessor property-type)
    (cluster :initarg :cluster
 	    :accessor cluster
 	    :initform nil)
@@ -189,7 +189,7 @@
       (format stream
 	  "(property ~D ~(~A~) ~S~%(default ~S ~S)~%~{(node ~D ~S)~%~}~{(edge ~D ~S)~%~})"
 	  (if cluster (numeric-id cluster) 0)
-	  (type property)
+	  (property-type property)
 	  name
 	  (nodes-default property)
 	  (edges-default property)