X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/292c806ab22df351ca8b0cc198498f9b3779e647..7129498f766e835230452e4d3e51f8235667646f:/src/mewa/mewa.lisp

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index a264756..0164802 100644
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -85,7 +85,12 @@ attributes is an alist keyed on the attribute nreeame."
 
 
 (defmethod default-attributes ((model t))
-  (append (mapcar #'(lambda (s) (cons (car s) (gen-pslot (if (meta-model:foreign-key-p model (car s))
+  (append (mapcar #'(lambda (s) 
+		      (cons (car s) 
+			    (gen-pslot 
+			     (if (meta-model:foreign-key-p model
+							   'ucw::foreign-key
+							   (car s))
 						   (cadr s))
 						 (string (car s)) (car s)))) 
 	  (meta-model:list-slot-types model))
@@ -266,7 +271,7 @@ attributes is an alist keyed on the attribute nreeame."
   (answer nil))
 
 (defaction save-instance ((self mewa))
-  (meta-modqel:sync-instance (instance self))
+  (meta-model:sync-instance (instance self))
    (setf (modifiedp self) nil)
        (answer self))