diff --git a/scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm b/scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm
index 9550b8116..6bc9b1482 100644
--- a/scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm
+++ b/scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm
@@ -3850,7 +3850,10 @@ sub make_path {
 	my $path;
 
 	foreach my $element (@_) {
-		$path .= "/$element";
+		if ($path && rindex($path, '/') != length($path) - 1) {
+			$path .= '/';
+		}
+		$path .= $element;
 	}
 
 	return $path;