Index: mttroot/mtt/lib/comp/simple/SS_seqn.m
==================================================================
--- mttroot/mtt/lib/comp/simple/SS_seqn.m
+++ mttroot/mtt/lib/comp/simple/SS_seqn.m
@@ -1,6 +1,7 @@
-function [eqn,insigs,innames] = SS_seqn (Name, name, cr, arg, outsig, insigs,innames)
+function [eqn,insigs,innames] = SS_seqn (Name, name, cr, arg, outsig, \
+					 insigs,innames,is_port)
 
   ## usage:  [eqn,inbonds] = SS_seqn (Name, cr, arg, outbond, inbonds)
   ##
   ## 
   ## Multi port SS's ??
@@ -19,15 +20,15 @@
 
   effort_attribute = deblank(attrib_name(1,:));
   flow_attribute   = deblank(attrib_name(2,:));
 
   ## Default attributes
-  if strcmp(effort_attribute,"")
+  if strcmp(effort_attribute,"")||is_port
     effort_attribute = "external";
   end;
   
-  if strcmp(flow_attribute,"")
+  if strcmp(flow_attribute,"")||is_port
     flow_attribute = "external";
   end;
 
 
   if mtt_is_external("SS",outsig,insigs) # Source
@@ -52,7 +53,6 @@
    LHS = Sensor_seqn (attribute,full_name);
    RHS = varname(Name, insigs(1,1), insigs(1,2));
    eqn = sprintf("%s := %s;", LHS, RHS);
  endif
  
-
 endfunction

Index: mttroot/mtt/lib/comp/simple/Sensor_seqn.m
==================================================================
--- mttroot/mtt/lib/comp/simple/Sensor_seqn.m
+++ mttroot/mtt/lib/comp/simple/Sensor_seqn.m
@@ -6,11 +6,11 @@
   
 
   if strcmp(attribute,"external")
     LHS = sprintf("MTTy_%s", name);  
   elseif strcmp(attribute,"internal")
-    LHS = sprintf("%% NOT USED MTT_y_%s", name); 
+    LHS = sprintf("MTTy_%s", name); 
   else
     error(sprintf("attribute ""%s"" not appropriate for a \
     source"), attribute);
   endif
 endfunction