diff --git a/doc/efun/program_time b/doc/efun/program_time
new file mode 100644
index 0000000..62a6297
--- /dev/null
+++ b/doc/efun/program_time
@@ -0,0 +1,17 @@
+SYNOPSIS
+        int program_time()
+        int program_time(object ob)
+
+DESCRIPTION
+        Returns the creation (compilation) time of the object's
+        program. In other words, this is the object_time() of
+        the blueprint.
+
+        Default is this_object(), if no arg is given.
+
+	
+        CAVEAT: If the objects program is swapped out, this efun
+          swaps it back in.
+
+SEE ALSO
+        object_time(E), program_name(E)