diff --git a/source/compiler/sc2.c b/source/compiler/sc2.c
index b79d8fa..44a36df 100644
--- a/source/compiler/sc2.c
+++ b/source/compiler/sc2.c
@@ -1220,16 +1220,19 @@ static int command(void)
         if (sym==NULL || sym->ident!=iFUNCTN && sym->ident!=iREFFUNC && (sym->usage & uDEFINE)==0) {
           error(17,str);        /* undefined symbol */
         } else {
-          if (strcmp(name, "call")==0) {
-            assert((sym->ident & iFUNCTN)!=0 || (sym->ident & iREFFUNC)!=0);
-            stgwrite(sym->name);
+          if (sym->ident==iFUNCTN || sym->ident==iREFFUNC) {
+            if ((sym->usage & uNATIVE)!=0) {
+              /* reserve a SYSREQ id if called for the first time  */
+              sym->addr=ntv_funcid++;
+              outval(sym->addr,FALSE);
+            } else {
+              /* normal function, write its name instead of the address
+               * so that the address will be resolved at assemble time
+               */
+              stgwrite(".");
+              stgwrite(sym->name);
+            } /* if */
           } else {
-            if ((sym->ident & iFUNCTN)!=0 && (sym->usage & uNATIVE)!=0) {
-              if (sc_status==statWRITE && (sym->usage & uREAD)==0 && sym->addr>=0) {
-                /* reserve a SYSREQ id if called for the first time  */
-                sym->addr=ntv_funcid++;
-              } /* if */
-            }
             outval(sym->addr,FALSE);
           } /* if */
           /* mark symbol as "used", unknown whether for read or write */
diff --git a/source/compiler/sc4.c b/source/compiler/sc4.c
index 4135225..f982b58 100644
--- a/source/compiler/sc4.c
+++ b/source/compiler/sc4.c
@@ -744,6 +744,7 @@ SC_FUNC void ffcall(symbol *sym,const char *label,int numargs)
       stgwrite("l.");
       stgwrite(label);
     } else {
+      stgwrite(".");
       stgwrite(sym->name);
     } /* if */
     if (sc_asmfile
diff --git a/source/compiler/sc6.c b/source/compiler/sc6.c
index 1935d81..795c8f0 100644
--- a/source/compiler/sc6.c
+++ b/source/compiler/sc6.c
@@ -95,13 +95,32 @@ static ucell hex2long(const char *s,char **n)
 
 static ucell getparam(const char *s,char **n)
 {
+  int i;
   ucell result=0;
-  for ( ;; ) {
-    result+=hex2long(s,(char**)&s);
-    if (*s!='+')
-      break;
-    s++;
-  } /* for */
+  char name[sNAMEMAX+1];
+  symbol *sym;
+
+  if (*s=='.') {
+    /* this is a function, find it in the global symbol table */
+    for (i=0; !isspace(*(++s)); i++) {
+      assert(*s!='\0');
+      assert(i<sNAMEMAX);
+      name[i]=*s;
+    } /* for */
+    name[i]='\0';
+    sym=findglb(name,sGLOBAL);
+    assert(sym!=NULL);
+    assert(sym->ident==iFUNCTN || sym->ident==iREFFUNC);
+    assert(sym->vclass==sGLOBAL);
+    result=sym->addr;
+  } else {
+    for ( ;; ) {
+      result+=hex2long(s,(char**)&s);
+      if (*s!='+')
+        break;
+      s++;
+    } /* for */
+  } /* if */
   if (n!=NULL)
     *n=(char*)s;
   return result;
@@ -385,7 +404,8 @@ static cell do_call(FILE *fbin,char *params,cell opcode)
     /* look up the function address; note that the correct file number must
      * already have been set (in order for static globals to be found).
      */
-    sym=findglb(name,sGLOBAL);
+    assert(name[0]=='.');
+    sym=findglb(name+1,sGLOBAL);
     assert(sym!=NULL);
     assert(sym->ident==iFUNCTN || sym->ident==iREFFUNC);
     assert(sym->vclass==sGLOBAL);