Index: hyde.scm
===================================================================
--- hyde.scm	(revision 27129)
+++ hyde.scm	(working copy)
@@ -134,11 +134,11 @@
 
 (define (colorize-code language code)
   (let* ((class (conc "highlight " language "-language"))
-	 (code (handle-exceptions exn
-				  code
-				  (map (lambda (s)
-					 (html-colorize language s))
-				       code))))
+	 (code (map (lambda (s)
+                      (handle-exceptions exn
+                        (htmlize s)
+                        (html-colorize language s)))
+                    code)))
 
     `(pre (@ (class ,class)) (inject . ,code))))