X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/60a24293adb9a76f8530175efb05e24a7f953e42..fdeed55df38cdfc1d202f425ef6be3e2af2c1f96:/src/standard-display.lisp

diff --git a/src/standard-display.lisp b/src/standard-display.lisp
index 9bcf3ff..cc0b897 100644
--- a/src/standard-display.lisp
+++ b/src/standard-display.lisp
@@ -154,7 +154,8 @@
 		    (attribute (find-attribute occurence (first att))))
 	       (with-plist ((plist-union (rest att) (find-plist attribute)))
 		 (<:p :class "attribute"
-		      (and (getp :show-labels-p) (<:span :class "label" (<:as-html (or (getp :label) "")  " ")))	   
+		      (and (o-getp :show-labels-p)
+			   (<:span :class "label" (<:as-html (or (getp :label) "")  " ")))	   
 		      (display-using-description
 		       attribute
 		       component