@@ -588,10 +588,13 @@
 	 (uname #f))
     (if (null? (car uname-res))
 	"unknown"
 	(caar uname-res))))
 
+(define (common:real-path inpath)
+  (with-input-from-pipe (conc "readlink -f " inpath) read-line))
+
 ;;======================================================================
 ;; D I S K   S P A C E 
 ;;======================================================================
 
 (define (common:get-disk-space-used fpath)