From 02cecfa552a2441b1a4cf311b46fa6214031dd90 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 6 Dec 2007 01:47:53 -0500
Subject: [PATCH] Bug fixes

---
 extra/webapps/pastebin/style.css         | 1 +
 extra/webapps/source/source.factor       | 2 +-
 extra/xmode/catalog/catalog-tests.factor | 4 +++-
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/extra/webapps/pastebin/style.css b/extra/webapps/pastebin/style.css
index dda38b90d4..e3c7c19fc5 100644
--- a/extra/webapps/pastebin/style.css
+++ b/extra/webapps/pastebin/style.css
@@ -22,6 +22,7 @@ pre.code {
 	background-color:#f5f5f5;
 	padding:5px;
 	font-size:150%;
+	color:#000000;
 }
 
 .navbar {
diff --git a/extra/webapps/source/source.factor b/extra/webapps/source/source.factor
index ddc2f15759..36fbf9d5ae 100755
--- a/extra/webapps/source/source.factor
+++ b/extra/webapps/source/source.factor
@@ -12,7 +12,7 @@ global [
             [
                 drop
                 serving-html
-                htmlize-stream
+                swap htmlize-stream
             ] serve-file-hook set
             file-responder
         ] with-scope
diff --git a/extra/xmode/catalog/catalog-tests.factor b/extra/xmode/catalog/catalog-tests.factor
index e5d049de72..d5420ed2e3 100644
--- a/extra/xmode/catalog/catalog-tests.factor
+++ b/extra/xmode/catalog/catalog-tests.factor
@@ -5,5 +5,7 @@ kernel sequences io ;
 [ t ] [ modes hashtable? ] unit-test
 
 [ ] [
-    modes keys [ dup print load-mode drop reset-modes ] each
+    modes keys [
+        dup print flush load-mode drop reset-modes
+    ] each
 ] unit-test