Index: ftpd.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftpd/ftpd.tcl,v
retrieving revision 1.25
diff -u -r1.25 ftpd.tcl
--- ftpd.tcl	26 May 2004 04:24:29 -0000	1.25
+++ ftpd.tcl	5 Oct 2004 08:18:24 -0000
@@ -1822,17 +1822,14 @@
                         if {[string equal $tcl_platform(platform) "unix"]} {
                             set user [file attributes $f -owner]
                             set group [file attributes $f -group]
-
-			    puts $outchan [format "%s %3d %s %8s %11s %s %s" \
-			            [PermBits $f $stat(mode)] $stat(nlink) \
-	                            $user $group $stat(size) \
-                                    [FormDate $stat(mtime)] [file tail $f]]
                         } else {
-                            puts $outchan [format "%s %3d %11s %s %s" \
-                                    [PermBits $f $stat(mode)] $stat(nlink) \
-                                    $stat(size) [FormDate $stat(mtime)] \
-                                    [file tail $f]]
+                            set user owner
+                            set group group
                         }
+			puts $outchan [format "%s %3d %s %8s %11s %s %s" \
+			        [PermBits $f $stat(mode)] $stat(nlink) \
+	                        $user $group $stat(size) \
+                                [FormDate $stat(mtime)] [file tail $f]]
 		    }
 		}
 		default {
