diff --git a/s48/binary-parse/README b/s48/binary-parse/README
index 61edb37..b00b886 100644
--- a/s48/binary-parse/README
+++ b/s48/binary-parse/README
@@ -1,3 +1,10 @@
+[This file and the accompanying source code were derived from
+ Oleg's code for Gambit available from
+
+     http://okmij.org/ftp/Scheme/index.html#binio
+
+]
+
 (make-bit-reader byte-reader) -> bit-reader
 
 Given a BYTE-READER (a thunk), construct and return a function
diff --git a/s48/binary-parse/binary-parse.scm b/s48/binary-parse/binary-parse.scm
index 740ed5c..b2a78a1 100644
--- a/s48/binary-parse/binary-parse.scm
+++ b/s48/binary-parse/binary-parse.scm
@@ -1,3 +1,10 @@
+;;; This file and the accompanying README were derived from
+;;; Oleg's code for Gambit available from
+;;;
+;;;        http://okmij.org/ftp/Scheme/index.html#binio
+;;;
+
+
 ;			Binary parsing
 
 ;----------------------------------------
@@ -73,7 +80,7 @@
 ; "interpreter". The abbreviated notation may turn out to look like
 ; Olin's regular expressions.
 
-; $Id: binary-parse.scm,v 1.1 2003/04/14 06:38:47 mainzelM Exp $
+; $Id: binary-parse.scm,v 1.2 2003/04/14 06:45:20 mainzelM Exp $
 
 
 ;----------------------------------------