diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm
index 65b507e..07abd83 100644
--- a/scheme/httpd/surflets/surflet-input-fields.scm
+++ b/scheme/httpd/surflets/surflet-input-fields.scm
@@ -113,10 +113,10 @@
 	 (readonly symbol?)
 	 (attributes sxml-attribute?))
       (let ((extra-attributes '()))
-	(if rows (set! extra-attributes (cons `(rows ,rows) extra-attributes)))
-	(if cols (set! extra-attributes (cons `(cols ,cols) extra-attributes)))
 	(if (eq? readonly 'readonly)
 	    (set! extra-attributes (cons '(readonly) extra-attributes)))
+	(if cols (set! extra-attributes (cons `(cols ,cols) extra-attributes)))
+	(if rows (set! extra-attributes (cons `(rows ,rows) extra-attributes)))
 	(make-input-field 
 	 name "textarea"
 	 identity