diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 4d7d4d5ec..e2a2a5e71 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,5 +1,7 @@
 2003-01-10  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
 
+	* occam-channel.scm (make-channel): Renamed from channel.
+
 	* Makefile.am (ice9_sources): Added occam-channel.scm.
 
 	* occam-channel.scm: New file.  Implements occam-like channels.
diff --git a/ice-9/occam-channel.scm b/ice-9/occam-channel.scm
index 72698252e..8ced0b91d 100644
--- a/ice-9/occam-channel.scm
+++ b/ice-9/occam-channel.scm
@@ -45,7 +45,7 @@
   #:use-module (oop goops)
   #:use-module (ice-9 threads)
   ;;#:export-syntax (alt)
-  #:export (channel ? !))
+  #:export (make-channel ? !))
 
 (define no-data '(no-data))
 (define receiver-waiting '(receiver-waiting))
@@ -55,7 +55,7 @@
   (cv #:accessor cv #:init-form (make-condition-variable))
   (mutex #:accessor mutex #:init-form (make-mutex)))
 
-(define-method (channel)
+(define-method (make-channel)
   (make <channel>))
 
 (define-method (? (ch <channel>))