--- ray/src/common/caldefn.c	1990/07/19 11:15:31	1.5
+++ ray/src/common/caldefn.c	1990/07/20 08:30:23	1.7
@@ -154,12 +154,13 @@ char  *name;
 
 
 #ifdef  OUTCHAN
-chanout()			/* set output channels */
+chanout(cs)			/* set output channels */
+int  (*cs)();
 {
     register EPNODE  *ep;
 
     for (ep = outchan; ep != NULL; ep = ep->sibling)
-	chanset(ep->v.kid->v.chan, evalue(ep->v.kid->sibling));
+	(*cs)(ep->v.kid->v.chan, evalue(ep->v.kid->sibling));
 
 }
 #endif
@@ -429,10 +430,11 @@ getdefn()			/* A -> SYM = E1 */
     addekid(ep2, ep1);
     addekid(ep2, getE1());
 
+    if (
 #ifdef  FUNCTION
-    if (ep1->type == SYM)
+    	    ep1->type == SYM &&
 #endif
-    {
+	    ep1->sibling->type != NUM) {
 	ep1 = newnode();
 	ep1->type = TICK;
 	ep1->v.tick = -1;