refs #6626

[simantics/r.git] / org.simantics.r / scl / R / RConfiguration.scl

diff --git a/org.simantics.r/scl/R/RConfiguration.scl b/org.simantics.r/scl/R/RConfiguration.scl
index 05217d7902e0c0cf8406ee3995045901f8a210dc..7ad0196779d8da3a5094986eb7de99037eba6710 100644 (file)
--- a/org.simantics.r/scl/R/RConfiguration.scl
+++ b/org.simantics.r/scl/R/RConfiguration.scl
@@ -11,7 +11,8 @@ createSessionConfiguration parent (R.SessionConfiguration host port username pas
     r = newResource ()\r
     claim r L0.InstanceOf ROntology.SessionConfiguration\r
     claim r L0.PartOf parent\r
-    claimRelatedValue r L0.HasName host\r
+    sessionName = host + "-" + show port\r
+    claimRelatedValue r L0.HasName sessionName\r
     claimRelatedValue r ROntology.SessionConfiguration.host host\r
     claimRelatedValue r ROntology.SessionConfiguration.port port\r
     claimRelatedValue r ROntology.SessionConfiguration.username username\r