From 337ad847eced02c48726d9c0ed564d34949da53c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Wed, 15 Apr 1998 19:13:09 -0700
Subject: [PATCH] bugfix

Rev: lib/master.pike.in:1.9
---
 lib/master.pike.in | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lib/master.pike.in b/lib/master.pike.in
index 6f2787d5ad..3fc411669b 100644
--- a/lib/master.pike.in
+++ b/lib/master.pike.in
@@ -1,4 +1,4 @@
-/* $Id: master.pike.in,v 1.8 1998/04/15 14:16:54 grubba Exp $
+/* $Id: master.pike.in,v 1.9 1998/04/16 02:13:09 hubbe Exp $
  *
  * Master-file for Pike.
  *
@@ -805,9 +805,10 @@ string describe_program(program p)
     return s;
   }
 
-  if(mixed tmp=function_object(p))
-    if(s=describe_program(object_program(tmp)))
-      return s+"."+function_name(p);
+  if(functionp(p))
+    if(mixed tmp=function_object(p))
+      if(s=describe_program(object_program(tmp)))
+	return s+"."+function_name(p);
   return 0;
 }
 
-- 
GitLab