diff --git a/libguile/ports.c b/libguile/ports.c
index a1f866aef..f5e0bfa58 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2003 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -327,10 +327,11 @@ SCM_DEFINE (scm_drain_input, "drain-input", 1, 0, 0,
 #define FUNC_NAME s_scm_drain_input
 {
   SCM result;
-  scm_t_port *pt = SCM_PTAB_ENTRY (port);
+  scm_t_port *pt;
   long count;
 
   SCM_VALIDATE_OPINPORT (1,port);
+  pt = SCM_PTAB_ENTRY (port);
 
   count = pt->read_end - pt->read_pos;
   if (pt->read_buf == pt->putback_buf)