From 28fa2ea3e0a107a94f755cbef38b1eda628220f7 Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Wed, 16 Jun 1999 20:41:36 +0000
Subject: [PATCH] see changelog

---
 harbour/ChangeLog                  | 4 ++++
 harbour/tests/working/dosshell.prg | 7 +++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index afff4e9bf7..26415cb0d6 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990616-21:40 CET Eddie Runia
+  * tests/working/dosshell.prg
+    new version added
+
 19990616-21:15 CET Matteo Baccan
   * makefile.vc
     correct updated version added
diff --git a/harbour/tests/working/dosshell.prg b/harbour/tests/working/dosshell.prg
index 7d8a0930fd..320821df53 100644
--- a/harbour/tests/working/dosshell.prg
+++ b/harbour/tests/working/dosshell.prg
@@ -6,16 +6,15 @@
 //
 // Warning : DOS only
 //
-#command ? [<xArg,...>] => QOut( <xArg> )
-#command ! <cCommand>   => __Run( <cCommand> )
 
 function Main()
 
-   local cOs := Upper( OS() )
+   local cOs    := Upper( OS() )
+   local cShell := GetEnv("COMSPEC")
 
    if (at( "WINDOWS", cOs ) != 0) .or. at( "DOS", cOs ) != 0
       ? "About to shell to DOS.."
-      ! GetEnv("COMSPEC")
+      ! (cShell)
       ? "Hey, I am back !"
    else
       ? "Sorry this program is for Windows and DOS only"