gistfile1.diff

diff --git a/src/glue/run.pir b/src/glue/run.pir
index 3ff1a93..1da169c 100644
--- a/src/glue/run.pir
+++ b/src/glue/run.pir
@@ -105,6 +105,12 @@ of the compilation unit.
     $P2 = '&CREATE_HASH_FROM_LOW_LEVEL'(env)
     set_hll_global '%ENV', $P2
 
+    # Set up $*OSNAME
+    .local pmc osname
+    $S0 = sysinfo 4
+    osname = box $S0
+    set_hll_global ['PROCESS'], '$OSNAME', osname
+
     # INIT time
     '!fire_phasers'('INIT')