From b32276d1da218ac28a1354205a1b950a5961e0f8 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Thu, 6 Mar 2008 14:46:11 -0600
Subject: [PATCH] Stupid bug fix

---
 core/io/encodings/utf8/utf8-docs.factor | 2 +-
 extra/io/encodings/ascii/ascii.factor   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/io/encodings/utf8/utf8-docs.factor b/core/io/encodings/utf8/utf8-docs.factor
index 3e901ec83b..dbbc193a02 100755
--- a/core/io/encodings/utf8/utf8-docs.factor
+++ b/core/io/encodings/utf8/utf8-docs.factor
@@ -6,6 +6,6 @@ ARTICLE: "io.encodings.utf8" "Working with UTF8-encoded data"
 { $subsection utf8 } ;
 
 HELP: utf8
-{ $class-description "This is the class of encoding tuples which denote a UTF-8 encoding. You can pass this class symbol as an encoding descriptor to words like " { $link <file-reader> } " and " { $link encode-string } ". This conforms to the " { $link "encodings-protocol" } "." } ;
+{ $class-description "This is the class of encoding tuples which denote a UTF-8 encoding. This conforms to the " { $link "encodings-protocol" } "." } ;
 
 ABOUT: "io.encodings.utf8"
diff --git a/extra/io/encodings/ascii/ascii.factor b/extra/io/encodings/ascii/ascii.factor
index f310f53e29..fdefc35634 100644
--- a/extra/io/encodings/ascii/ascii.factor
+++ b/extra/io/encodings/ascii/ascii.factor
@@ -4,7 +4,7 @@ USING: io io.encodings strings kernel math sequences byte-arrays io.encodings ;
 IN: io.encodings.ascii
 
 : encode-check<= ( string stream max -- )
-    [ pick > [ encode-error ] [ stream-write1 ] if ] 2curry each ;
+    [ pick <= [ encode-error ] [ stream-write1 ] if ] 2curry each ;
 
 TUPLE: ascii ;