X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/9f2bdea87849c3feab566d6cd49c67bb31cc1f36..e5b53af49b8be7c10931bd37eaaec91fab34ea1c:/src/slot-presentations.lisp?ds=sidebyside

diff --git a/src/slot-presentations.lisp b/src/slot-presentations.lisp
index 19927f9..6acc8a9 100644
--- a/src/slot-presentations.lisp
+++ b/src/slot-presentations.lisp
@@ -29,7 +29,7 @@
 	 :cols (columns slot))
 	(if (escape-html-p slot)
 	    (<:as-html (presentation-slot-value slot instance))
-	    (<:as-is (presentation-slot-value slot instance))))))
+	    (<:as-is (presentation-slot-value slot instance)))))
 
 
 (defcomponent mewa-slot-presentation ()