diff --git a/Scanner.pas b/Scanner.pas
index a51770e..4540637 100644
--- a/Scanner.pas
+++ b/Scanner.pas
@@ -1017,9 +1017,13 @@ case token.kind of
 
    uasterisk:        write('*');
 
+   poundpoundop:     if not token.isDigraph then
+                        write('##')
+                     else
+                        write('%:%:');
+
    macroParm:        write('$', token.pnum:1);
 
-   poundpoundop,
    parameteroper,
    castoper,
    eolsy,